00100		DIMENSION N(3,341),M(1023)
00200		EQUIVALENCE (M,N)
00205		KCNT=0
00210		KX=-1100
00260		TYPE 20
00270		ACCEPT 21,JJY,AUD
00275		KKY=AUD*200
00277		JJX=0
00300		CALL PLOTS(K)
00350	10	KCNT=KCNT+1
00355		KY=KKY
00360		JJX=JJX+1
00400	1	READ(1)K,(M(J),J=1,K)
00500		DO 3 JJ=1,K,3
00600	3	CALL PLOT(M(JJ),M(JJ+1),M(JJ+2))
00700		IF(K.EQ.1023)GO TO 1
00705		TYPE 21,JJX
00710		IF(JJX.GE.JJY)CALL EXIT
00800		IF(KCNT.EQ.5)GO TO 5
01000	6	CALL PLOT(KX,KY,-3)
01100		IF(KX.EQ.0)KX=KQ
01400		REWIND 1
01500		GO TO 10
01550	5	KQ=-KX
01600		KX=0
01700		KY=1200+KKY
01800		KCNT=0
01900		GO TO 6
02000	20	FORMAT(' HOW MANY AND UP-DN INCHES?'/)
02010	21	FORMAT(I,F)
02020		END